home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / biz / dopus / WolleDOpus.lha / wolledopus / dopus5 / arexx / ClearRam.dopus5 < prev    next >
Text File  |  1998-01-21  |  1KB  |  49 lines
  1. /*
  2. $VER: ClearRam.dopus5 V0.98 (30.10.1997) © Marco Wollkopf
  3. E-Mail: Marco.Wollkopf@t-online.de
  4. Homepage: http://home.t-online.de/home/Marco.Wollkopf
  5.  
  6. Löscht nach einer Sicherheitsabfrage alle Einträge
  7. in der Ram Disk außer: Clipboards
  8.                        ENV
  9.                        T
  10.                        Disk.info
  11.  
  12.  
  13. Einstellungen:
  14. -----------------------------------------------
  15. [ARexx] DOpus5:ARexx/ClearRam.dopus5 {Qp}
  16. -----------------------------------------------
  17.  
  18. */
  19.  
  20. options results
  21. parse arg port
  22.  
  23. IF port ~= "" THEN
  24.     ADDRESS value(port)
  25. ELSE DO
  26.     say "Script muß von DirOpus aufgerufen werden"
  27.     exit
  28. END
  29.  
  30. dopus request "'Wirklich die Ram Disk aufräumen?"||D2C(10)||" Alle Daten gehen verloren.' _aufräumen|_nicht aufräumen"
  31. if rc = 0 then exit
  32.  
  33. lister new "ram:" 
  34. handle = result
  35. lister wait handle
  36. lister set handle busy on wait
  37. lister query handle entries stem ein.
  38. do c=0 to ein.count-1
  39.     lister select handle ein.c on
  40. end
  41. if exists('ram:Clipboards') then lister select handle "Clipboards" off
  42. if exists('ram:T') then lister select handle "T" off
  43. if exists('ram:ENV') then lister select handle "ENV" off
  44. if exists('ram:Disk.info') then lister select handle "Disk.info" off
  45. lister refresh handle
  46. lister set handle busy off
  47. command wait source handle delete
  48. lister request handle '"Die Ram Disk ist jetzt aufgeräumt."'
  49. lister close handle